home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / DJLSR106.ARJ / MODF.S < prev    next >
Text File  |  1992-03-28  |  468b  |  33 lines
  1.     .text
  2.     .globl    _modf
  3. _modf:
  4.     pushl    %ebp
  5.     movl    %esp,%ebp
  6.     subl    $16,%esp
  7.     pushl    %ebx
  8.     fnstcw    -4(%ebp)
  9.     fwait
  10.     movw    -4(%ebp),%ax
  11.     orw    $0x0c3f,%ax
  12.     movw    %ax,-8(%ebp)
  13.     fldcw    -8(%ebp)
  14.     fwait
  15.     fldl    8(%ebp)
  16.     frndint
  17.     fstpl    -16(%ebp)
  18.     fwait
  19.     movl    -16(%ebp),%edx
  20.     movl    -12(%ebp),%ecx
  21.     movl    16(%ebp),%ebx
  22.     movl    %edx,(%ebx)
  23.     movl    %ecx,4(%ebx)
  24.     fldl    8(%ebp)
  25.     fsubl    -16(%ebp)
  26.     leal    -20(%ebp),%esp
  27.     fclex
  28.     fldcw    -4(%ebp)
  29.     fwait
  30.     popl    %ebx
  31.     leave
  32.     ret
  33.